home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1996 #6 / Amiga Plus CD - 1996 - No. 06.iso / pd / tools / frexxed / fpl / hotkey.fpl < prev    next >
Text File  |  1995-07-19  |  591b  |  21 lines
  1. int process;
  2.  
  3. export void hotkey_exit()
  4. {
  5.   if (process)
  6.     System("break "+ltostr(process));
  7.   process=0;
  8. }
  9.  
  10. export void hotkey_changed()
  11. {
  12.   hotkey_exit();
  13.   System("makedir t:FrexxEd", "", "NIL:");
  14.   System("run >t:FrexxEd/process FrexxEd:bin/FrexxKey Hotkey=\""+ReadInfo("hotkey")+"\" CX_PRIORITY=1 SYSTEM=rx \" /* */ ADDRESS "+ ReadInfo("arexx_port")+" 'Deiconify();'\"");
  15.   process=atoi(substr(LoadString("t:FrexxEd/process"), 4, -1));
  16. }
  17. ConstructInfo("hotkey", "hotkey_changed();", "", "gsw(system)", "", 0, 0, "Alt Shift Return");
  18. Hook("Exit", "hotkey_exit();");
  19.  
  20. hotkey_changed();
  21.